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