sub readfile {
	my $OP ;
	open FS, $_[0] ;
	while (<FS>) {$OP .= $_}
	close FS ;
	return $OP ;
}