Select Code to Download

use warnings;
use strict;
...
}

foo();

$ 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.