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