#!/usr/bin/perl -w

#
#test if open can be used on large file
#failed to open a 2.7 giga B file in 1 giga memory
my $file = $ARGV[0];
print "$file\n";
open(IN, "<$file") || die "Could not open $file: $?\n";
close(IN);