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