#!/usr/bin/perl

use strict;
use v5.10;

my $erg=open(my $fh, "-|",'dpkg --print-architecture');
if (not $erg)
{
 say "open FAILED: $!";
 exit 1;
}
my $zeile=<$fh>;
chomp($zeile); # \n entfernen
close($fh);

my $amd_string="amd64";
if ( $zeile eq $amd_string  )
{
 say "Ja, '$amd_string'";
}
else
{
 say "Nein, kein '$amd_string'";
}