Select Code to Download

use 5.010;

...
        return split m#[|]#, $text;
    }
}

# Usage...
my $ask = Ask->new;
say "GOT: ", $ask->entry(text => "Please enter your password!", hide_t
+ext => 1);