$ perl $_
Argument "!M" isn't numeric in numeric eq (==) at tst.pl line 11.
Argument "some_val" isn't numeric in numeric eq (==) at tst.pl line 11.
Undefined subroutine &main::xmlFileData called at tst.pl line 14.