Select Code to Download

(@rest = split(/ /, $rest);

$apass = pop @rest;

print "ATTEMPT PASS: $apass\n";

print "\$REST: $rest\n";

foreach $i @rest {
    print "\@REST: $i\n";

print "\$_: $_\n";