# 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.

my $callprogram = 'dpkg --print-architecture';

my $response = qx/$callprogram/; # Programm aufrufen und Ausgabe in Variable einlesen

# Prüfe ob Fehler nach Aufruf vorliegt
if ($? == -1) {
    print "Kann nicht ausgefuehrt werden: $!\n";
}
elsif ($? & 127) {
    printf "Kindprozess endete - Signal %d, %s coredump\n",
        ($? & 127),  ($? & 128) ? 'mit' : 'ohne';
}
else {
    printf "Kindprozess endete mit Rueckgabewert %d\n", $? >> 8;
}