Select Code to Download

perl short_path.pl input_fie output_file

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

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

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

perl short_path.pl input_file > output_file