#!/usr/bin/perl --
use strict;
use warnings;
...
Main( @ARGV );
exit( 0 );
sub Main {
    if( not @_ ){
        print "Usage: $0 filenameToOpen\n\n";
    }
    ...
}