#!/usr/bin/perl

seek(DATA,0,0);
print map{$. . $_}<DATA>;
__END__