Equivalent of ksh basename $0 2

[cryptoadm]

In Perl what is the equivalent of basename $0

For example:
# cat test.sh

#!/bin/ksh
prog=`basename $0`
echo $prog

returns:
test.sh

 

[prex1]

$0

Contains the name of the program being executed.

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[rharsh]

#!perl
use File::Basename;
my $prog = basename($0);
print "$prog\n";

 

[cryptoadm]

Thanks both!!