Select Code to Download

use strict;
use warnings;
...
    last if $input eq "0";
}
exit 0;

$ perl test_argv.pl one two three
one
...
three
Hit return or enter 0 to exit
0