A Perl script for use with Traveller 1248.