Verstehe nicht warum diese Abfrage nicht funktioniert

[fork]

#!/usr/bin/perl

$einzelpreis = 0.7;
$takte = 20;
print((($takte * $einzelpreis) == int($takte * $einzelpreis))."\n");

johndoe@linux:~$ ./test.pl 
1

Bei mir ergibt Dein Code true.