local @ARGV = $file_name; #### local $^I = ''; #### local $/; # sluurp #### local $_ = <>; #### while ( chomp ) { } #### print;