dienice("Line ",__LINE__,": oops\n");

##</code><code>##

sub dienice {
    my $line= (caller)[2];
    dienicely( "Line $line: ", @_ );
}