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

##</code><code>##

$ perl
print "drivel";#some code
__END__
drivel

##</code><code>##

D:\tmp\pm>perl
print "drivel";#some code
__END__
drivel
D:\tmp\pm>

##</code><code>##

$ perl -MO=Deparse -E'print "drivel";#some code'
use feature 'current_sub', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
print 'drivel';
-e syntax OK