Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -T

...
sub error {
    print "An error occurred.\n";
}