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