use Test::More qw(no_plan);

use strict;
use warnings;

SKIP: {
    skip qq(Won't run automatically, execute "export MyModOPTRUN=yes" to enable interactive test)
        unless ($ENV{MyModOPTRUN} && $ENV{MyModOPTRUN} eq "yes");
    warn "\nEnter your innermost secret:\n";
    my $secret = (<STDIN>);
    ok ($secret,"Yep, that's it");
}