#!/usr/bin/perl --
use strict;
use warnings;
use ... ## other stuff you use

Main( @ARGV );
exit( 0 );
sub Main {
   my( $left, 
   ...
}