Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
        print "found\n";
    }
}

Select or download this

Scalar found where operator expected at (eval 1) line 1, at end of lin
+e
        (Missing operator before ?)
Backslash found where operator expected at (eval 1) line 1, near "$mon
+\"
        (Missing operator before \?)
found