[root@smart sporty]# pwd
/root/sporty
[root@smart sporty]# cat uhuh.pl
#!/usr/bin/perl
print "$0 does not know\n", `pwd`;
[root@smart sporty]# ./uhuh.pl
./uhuh.pl does not know
/root/sporty
[root@smart sporty]# perl uhuh.pl
uhuh.pl does not know
/root/sporty
[root@smart sporty]#