open(FIN,"< $full_path") || print "File Not Found"; binmode FIN; $buffer = join '', ; close(FIN); print $buffer;