use Devel::UncheckedOps
    ( fix => 1,
      functions => [ map @$_,
                     @Devel::UncheckedOps::CHECK_DICT{ qw( io file directory ) } ] );

print "Hello world!\n";
# Becomes
# print "Hello world!\n" or die $!;