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


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