#!/usr/bin/perl

use IO::File;

my $file = "foo.txt";
my $foo = IO::File->new($file) or die "Can't open original file: $!\n";
while (<$foo>){
        print <$foo>;
};
close $foo;
exit;

##</code><code>##

1
2
3
4
5
##</code><code>##

while (1){