sub mywarn {
    warn $_ for @_;
    return;
};