UNKNOWN =************************************** = Name: Meilen Rechner = Description:Dieser kleine aber Feine Code rechnet Kilometer in Meilen um. = = = Inputs:None = = Returns:None = =Assumes:None = =Side Effects:None =This code is copyrighted and has limited warranties. =Please see http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.778/lngWId.6/qx/vb/scripts/ShowCode.htm =for details. =************************************** #!/usr/bin/perl/ use strict print "Willkommen zum kleinen Meilenrechner von Daniel Wenzel\n"; print "\n\n\n\n"; print "Bitte geben Sie die Kilometerzahl an, die Sie in Meilen umgerechnet haben moechten:\n"; my $km = <STDIN>; $miles = $km * 0.6214 ; print "Hier die Auswertung:\n"; print ("$km Kilometer sind $miles Meilen\n");