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