5#!/usr/bin/perl
5
5seek(DATA,0,0);
5print map{$. . $_}<DATA>;
5__END__