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