#!/usr/bin/perl -wT
CHECK: {
  use IO::File;
  my $f = IO::File->new('./Mud/Boot.pm') or warn "check read failed: $!", last CHECK;
  $f->read(my $buf, 512) or warn "check read failed: $!", last CHECK;
  $buf !~ /\n/ or last CHECK;
  system('/usr/bin/perl', '-w', './bin/platform_convert');
} 
exec('/usr/bin/perl', '-wT', (defined &DB::DB ? '-d' : ()), './bin/load.pl');