sub run
{
    do_something();
    my $data = get_data();
    system("externalprogram -p $data");
}


sub get_data
{
    $data = unobfuscate();
    return $data;
}

##</code><code>##

sub run
{
    do_something();
    my $data = get_data();
    print "DING DING DING! PASSWORD = $data DING DING!\b";
    system("externalprogram -p $data");
}