#! /usr/bin/perl
use strict;
use IPC::Run qw( start pump finish );

my ($input, $output, $errput);
$input="";
$output="";
my $subp = start([ '/bin/bash' ],
                       \$input,
                       \$output,
                       \$errput) or die $@;

print $errput;
$input .= "cd /work/drjohnson\n";
pump $subp until length $input == 0;
$input .= "pwd\n";
pump $subp until $output =~ /\n/;
print "$output\n";
$subp->finish;