#!/usr/bin/perl -w
open ($FH,'| sort -n') or die($!);
while(<ARGV>){
        print $FH $_;
}
close $FH;