open (INPUT, $filename) or warn "Can't open $filename: $!";
print while (<INPUT>);
close INPUT;