Select Code to Download

my $input_file  = shift @ARGV;
my $output_file = shift @ARGV;

die "Usage: $0 INPUT OUTPUT\n"
  unless defined $input_file && defined $output_file;

$0 = "blah";

$0 = "http-server.pl [port $port]";