Select Code to Download

my $file_name = ( split m{/}, $0 )[-1];

my $file_name = substr $0, 1 + rindex $file, '/';

my ( $file_name ) = $0 =~ m{([^/]+)$};

use File::Basename qw(basename);

my $file_name = basename $0;