Select Code to Download

#!/usr/bin/env perl

...
my $input = prompt('Enter: ', 50);

print "$input\n";

use Test::More;

...
ok 0 == $exit, 'Clean exit code.';
like $stderr, qr/^\QIs interactive? No/, 'Detected non-interactive mod
+e.';
is $stdout, "Enter:  [50] 50\n50\n", 'Correct output.';