Am I missing what this is (not) supposed to do? Seems to work fine for me on Windows 7 x64 and Strawberry 5.16.1 (64-bit):

VinsWorldcom@C:\Users\VinsWorldcom\tmp> ver

Microsoft Windows [Version 6.1.7601]

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl -v

This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x
+64-multi-thread

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl test.pl test.pl
$VAR1 = 'use IO::File;
';
$VAR2 = 'use Data::Dumper;
';
$VAR3 = 'my $fh = IO::File->new();
';
$VAR4 = '$fh->open(shift);
';
$VAR5 = 'my @lines = $fh->getlines();
';
$VAR6 = 'undef $fh;
';
$VAR7 = 'print Dumper (@lines);';
[download]