#!/bin/bash
lineno=$LINENO;perl='#line '"$LINENO"' "'"$0"'"
warn 'error';
'

perl -e "$perl"