$line = ; ##

##

@lines = ;

##

##

open IN, "file";
print ;

##

##

use File::Slurp;
print read_file("file");