#!/usr/bin/perl
#use Switch;
print while <DATA>;
__DATA__
some
data
here