Select Code to Download

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

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