use File::Basename; my $MyName = (fileparse($0, '\..*'))[0]; [download]
In reply to Re^3: who am I? by NateTut in thread who am I? by momo33