Help for this page
@ARGV = @ARGV[2..$#ARGV]; # or for the paran paranoid: @ARGV = (@ARGV)[(2..$#ARGV)];
my $discard1 = shift; my $discard2 = shift;