while () { $OP .= $_ } #### sub readfile { my $OP; open FS, $_[0] or die "Can't open $_[0]: $!"; { local $/ = undef; $OP = ; } close FS or die "Can't close $_[0]: $!"; return $OP; }