System Functions Perl

#Getopt::Long::GetOptions('number_copies:i' => \$copies);
#!/usr/bin/perl -w
use Getopt::Long;
Getopt::Long::GetOptions( 
    'number_copies:i' => \$copies);
if ( defined( $copies ) ) {
    print "number_copies flag set to $copies\n";
}