use Getopt::Long;

Configure( \%Config );
if( $Config{help} ){ Syntax(); exit();}

....Code Goes Here.....

sub Configure {

    my( $Config ) = @_;
    my $Result = 0;
    Getopt::Long::Configure( "prefix_pattern=(-|\/)" );
    $Result = GetOptions( $Config, 
                qw(
				   	del|d=i
					length|l=i
					path|p=s
					first|f=s
					reports|r=i
                    help|?|h
                ) );
				
	if (! scalar $Config->{line}) { $Config->{line}=132;}
	if (! scalar $Config->{reports}) { $Config->{reports}=1;}
	if (! exists $Config->{path}) { Syntax(); exit; }
	if (! exists $Config->{first}) { Syntax(); exit; }
	
	if (exists $Config->{del}) { Delete(); }
	
	$stream = $Config->{line};
	$rptpag	= $Config->{reports};
	$dir = $Config->{path};
	$firstln = $Config->{first};
}

sub Syntax
{

    print <<EOT;

ansi.pl
-------
Used for Adding/Removing ANSI printer control characters.

Syntax:
    ansi.pl [-l length] [-p path] [-f first] [-r reports] [-d del]
	
        -l..........Defines length of each line in the files. [default=132]
        -p..........Specifies the directory path to process. [must be defined]
                    (Directory must end with a \\)
        -f..........Defines the first line of a report. [must be defined]
        -r..........Set the number of reports per page. [default=1]
        -d..........Deletes defined number of characters from beginning of
                    each line. [optional]
        -h..........This help screen.			

        *(looks for all *.dat in specified directory, saves original to *.bak)  


EOT

}