daniel@daniel-laptop:/tmp$ perl test.pl 
test.pl
daniel@daniel-laptop:/tmp$ cat test.pl 
#!/usr/bin/perl -w
use strict;

print "$0\n";
daniel@daniel-laptop:/tmp$