while (-<DATA>) {
    print $_;
}