Help for this page

Select Code to Download


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