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

##</code><code>##

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