perl -e'
    $SIG{__WARN__} = sub {
        local ( $/, $,, $! );
        print STDERR "(W) ", @_, "\n";
    };

    do shift(@ARGV) or die("(F) $@");
' script.pl ...