print 'Perl is fun not money' if $1 + $2 + $3 + $4 + $5 == $0
In reply to Earn money with Perl? by ccn