#!perl use strict; use warnings; print "foo";