sub get_platform();
sub test();

test();

sub test() {
  my $platform = get_platform();
  print $platform . "\n";

  if( $platform eq "amd64") {
    print 'yes'."\n";
  }
  else {
    print 'no'."\n";
  }
}


sub get_platform()
{
    my $platform = system('dpkg --print-architecture');
    #$platform =~ s/^\s+|\s+$//g;
    return $platform;
}