# Variable enthält Kommandozeile des zu startenden Programms mit Parametern
my $callprogram = 'dpkg --print-architecture';

# Programm schriebt auf Pipe und diese wird per Dateinhandle geöffnet
open my $fh, "$callprogram|" or die "Fehler: Pipe öffnet nicht '$!'"; 

# die Ausgabezeilen der Pipe auslesen 
my @lines = <$fh>;

# Lesen aus der Pipe schließen
close $fh or die $!; 

# und nun kannst du über @lines deine Ausgabe verarbeiten.