#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Getopt::Long; 
use Data::Dumper; 
 
 
my $DEBUG = 0;    # set default debug level 
my ($dir, $file); # these are just addons to demonstrate the useage of Getopt::Long 
 
GetOptions ( 
    'debug|d=i' => \$DEBUG, 
    'path|p=s'  => \$dir, 
    'file|f=s'  => \$file, 
); 
 
print Dumper $dir, $file; 
print_s("Today is good day to write good script in Perl."); 
 
##### subroutine declarations ##### 
 
sub print_s { 
    if ( $DEBUG == 1 ) { 
        print $_[0]; 
    } 
    else { 
        print $DEBUG; 
    } 
}