perl -v

perl -e "print 'hello, world.';"

perl -ne "print;" command.txt

perl -ne "$i++; print qq($i: $_);" command.txt

perl -ne "$i++; print qq($i: $_) if /<.*>/;" demo.html

perl -MLWP::Simple -e "$_ = get('http://abclocal.go.com/ktrk/weather/'); /weathertemp.>(\d+)/; print $1;"