$ perl tst.pl
Warning: something's wrong at tst.pl line 10.
Warning: something's wrong at tst.pl line 12.
Warning: something's wrong at tst.pl line 14.