Select Code to Download

$argument = undef;
while (0)
{
}

$|++;

my $argument = $ARGV[0] || warn "No argument given\n";
...
    print "Enter an argument: ";
    chomp ($argument = <STDIN>);
} while (!length($argument));