Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "Aborting Loop\n";
    last;
}

W:\Steve\PerlMonks>perl sopw-584100.pl
  Byte = [65]  Integer = [65]  Hex = [41]  Binary = [01101100]  Binary
+ String = [01101100]
Aborting Loop