Select Code to Download

use strict;
use warnings;
require 5.8.1;

use strict;
use warnings;
...
} else {
    print "Thanks for not asking to run me under Perl 4.\n";
}