use File::Basename; my $name = basename($0); [download]
In reply to Re: Current file name by toolic in thread Current file name by Selvakumar