use Data::Dumper qw( Dumper );
warn Dumper #SELECT#;

##</code><code>##

#!/usr/bin/perl --
print "use Data::Dumper qw( Dumper );\nwarn Dumper ",<>,';';