#!/usr/bin/perl -w

use strict;
use Getopt::Std;
use vars qw( $opt_s $opt_r $opt_n );

if( ! getopts('srn' ) )
{
  die "Usage: filename.pl -srn filename\n";
  #Example: perl myfile.pl -r test.txt
}

my @file = <>;

if( $opt_s )
{
  @file = sort { $a cmp $b } @file;
}

if( $opt_r )
{
  @file = reverse @file;
}

if( $opt_n ) 
{
  @file = sort { $a <=> $b } @file;
}