Einfache Ein/Ausgabe

Einfache Ein/Ausgabe in Perl

Code:

#!/usr/bin/perl # head
print "Zahl eingeben :"; #info an den Benutzer
my $in = <STDIN>; # einlesen in $in
chomp $in; # leerzeichen entfernen
$in = $in * $in; # Zahl quadrieren
print "Ergibt : $in \n"; # ausgabe
sleep(10); #10 sekunden bis zum schließen warten