find( sub {
    return unless /^FLTest.pt$/;
    return if -f "FLTest.pm";
    copy("FLTest.pt", "FLTest.pm")
      or die "Couldn't create FLTest.pm (some tests will fail): $!";
}, ".");