perl short_path.pl input_fie output_file

##</code><code>##

print "Enter file name:\n";
chomp(my $file = <STDIN>);
open(DATA,$file) or die "failed opening file!!";

##</code><code>##

ins split /,\s*/ for <DATA>;

##</code><code>##

for (<>) {
    chomp;
    ins split /,\s*/;
}

##</code><code>##

perl short_path.pl input_file > output_file