#!/usr/bin/perl -w
warn;
$@ = 'Huh?';

warn;
warn '';

##</code><code>##

Warning: something's wrong at ./temp4.pl line 2.
Huh?    ...caught at ./temp4.pl line 5.
Huh?    ...caught       ...caught at ./temp4.pl line 6.