open (FILE, $filename) or die $!;

print while <FILE>;