sub unused
{
    warn "sub unused was used!!!\n";
    return;
    1 if $a;
    1 if $b;
}