Select Code to Download

my $num1 = shift;
my $flag = shift;

my ($num1, $flag) = @_;

use strict;
use warnings;
...
die "usage\n" if !@ARGV;

print(fact($ARGV[0]), "\n");