perl scriptname < input_file > output_file