#!/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;