perl short_path.pl input_fie output_file