#!/usr/bin/perl
use strict;
use warnings;

my $zahl = 5.7;

if(int($zahl)) {
	print "ganze Zahl\n";
}else{
	print "keine ganze Zahl\n";
}