sub ReadFile { unless (open(INFILE,"< $_[0]")) {return 0;} my $readin = join //, map {chomp;$_} ; close(INFILE); $readin; }