sub main
{
   my %args = read_arguments();
   process_args( \%args );
   my $file = open_file( \%args );
   my $data = process_file( $file, \%args );
   write_output( $data, \%args );   
   cleanup( $file, \%args );
}