Help for this page

Select Code to Download

Select or download this

my $file = param("file");
my @file_name = split(/\\/,$file);
my $file_name = pop(@file_name);

Select or download this

my $file ='../../bin/ls|';
my @file_name = split(/\\/,$file);
my $file_name = pop(@file_name);
print $file_name;