Help for this page

Select Code to Download

Select or download this

    my $argument = @ARGV ? shift : do {
        print "Please give an argument: ";
...
        chomp $arg;
        $arg;
    };