perl short_path.pl input_file > output_file