$ perl -e'print "drivel";#some code' drivel