#The Getopt modules will stop looking for switches once a double dash is detected.
#You can pass data after the double dash.
#!/usr/bin/perl -w
use Getopt::Long;
Getopt::Long::GetOptions('print_header!' => \$print_header);
if ( defined( $print_header ) ) {
print "print_header flag set to $print_header\n";
}