$ perl -wl
$num = 3.43221;

if ( int $num ) {
  print "Ganzzahl";
}
else {
  print "keine Ganzzahl";
}
Ganzzahl