#!/usr/bin/perl -w

if (@ARGV < 1 ) {
print "$0 <file>\n";
exit 1
}

$tmp_file=$ARGV[0];

open(TMP_INPUT_FILE, "<$tmp_file"); # open for input

my(@lines) = <TMP_INPUT_FILE>; # read file into list

close(TMP_INPUT_FILE);

open(TMP_OUTPUT_FILE, ">$tmp_file");

@lines = sort(@lines); # sort the list

my($line);

foreach $line (@lines) # loop thru list
 {
 print TMP_OUTPUT_FILE "$line"; # print in sort order
 }

close(TMP_OUTPUT_FILE);