Perl

Jika program di atas ditulis dalam sebuah berkas bernama codice_1, lalu dijalankan dengan perintah (contoh di Linux):