#!/usr/bin/perl -w

use strict;

use Net::SSH::Expect;
use TestExt;
use Data::Dumper;

package Test;
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;
}

package main;

my @a = Test->run();
print @a;

##</code><code>##

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;