package TestExt;

sub run {
my $cmd = 'ls -al';

my $pid = open OUT, "$cmd |" or die "cannot fork: $!";
print "running \"$cmd\" (pid = $pid) ... \n";
my @a = <OUT>;
print "closing ... \n";
close OUT or die "cannot close: $! $?";
print @a;
}

1;