use File::Basename wq(basename);
my $new_file_name = basename($input_file);
die "no such file: $input_file" unless -s $input_file;