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");
}


##</code><code>##

t/02.optional....ok
        1/1 skipped: Not running automatically, execute "export MyModOPTRUN=yes" to enable interactive test
All tests successful, 1 subtest skipped.
Files=1, Tests=1,  0 wallclock secs ( 0.00 cusr +  0.01 csys =  0.01 CPU)