Utiliser la fonction open en utilisant un pipe en tant que redirecteur :
#!/usr/local/bin/perl
use strict;
my $commande = "ls -l";
open(IN,"$commande |") or die $!;
while(my $line = <IN>)
{
chomp($line);
print $line."\n";
}
close(IN);