I think you want this:

  #! /usr/bin/perl -w
  use strict;
  use Getopt::Long;

  my $test = 1;
  GetOptions ('test' => \$test);

  if ($test)
  {
    ...
  }
[download]