#!/usr/bin/perl -w

print " I was called as $0\n";

##</code><code>##

[xxxx@yyy:/home/xxxx]$ tt
 I was called as ./tt
[xxxx@yyy:/home/xxxx]$ rr
 I was called as /usr/local/bin/rr
[xxxx@yyy:/home/xxxx]$