Select Code to Download

#! perl
use strict;
...

    print "Bye!\n";
}

16:51 >perl 1112_SoPW.pl
Enter a number (0 to quit): 57.6
...
Bye!

16:52 >

Enter a number (0 to quit): 57.600000 squared is 3317.760000
Enter a number (0 to quit): 0.002110 squared is 0.000004
Enter a number (0 to quit): 12.000000 squared is 144.000000
Enter a number (0 to quit): Bye!