my $pid = open(OUT, "|-");
die "Can't fork\n" unless defined $pid;
if(!$pid)
{
    exec "sudo bash";
    die "oops no exec\n";
}

select OUT;
$| = 1;
print "echo hi there\nexit\n";
close(OUT);