#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"; }