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