sub warn_from {
    my ($line,$file,$text) =@_;

    eval <<"__CODE__";
#line $line $file;
warn \$text;
__CODE__
}


warn_from(42,'captain.pl', "I say what!");