Reformatting cut(1), please wait...
rightcoast@mobileops:~$ perl pl.pl
Bareword found where operator expected at pl.pl line 1, near ""print$1 if(get('http://checkip.dyndns.com/')=~/((\d+\.){3}\d+)/) >>tmp.txt|uuencode -m tmp.txt | mail - s "subject"
(Missing operator before subject?)
String found where operator expected at pl.pl line 1, at end of line
(Missing semicolon on previous line?)
syntax error at pl.pl line 1, near "MLWP::Simple -e "
Can't find string terminator '"' anywhere before EOF at pl.pl line 1.