open my $inFile, "<", $filename or die "Unable to open $filename: $!\n";
print <$inFile>;
close $inFile;