1*b39c5158Smillertpackage Caller_helper; 2*b39c5158Smillert 3*b39c5158Smillertour $line; 4*b39c5158Smillert 5*b39c5158Smillertsub foo { 6*b39c5158Smillert use autodie; 7*b39c5158Smillert 8*b39c5158Smillert $line = __LINE__; open(my $fh, '<', "no_such_file_here"); 9*b39c5158Smillert 10*b39c5158Smillert return; 11*b39c5158Smillert} 12*b39c5158Smillert 13*b39c5158Smillert1; 14