Select Code to Download

die "Required argument missing!\n" unless ($ARGV[0]);
my $response;
...
  $response = "Huh?\n";
}
print $response;

die "Required argument missing!\n" unless ($ARGV[0]);
{ #scoping block
...
  }
  print $response;
}