open(FILE, "$ARGV[0]");
@d = <FILE>;
close(FILE);
open(OUT, ">>$ARGV[0].out");
foreach $de (@d) {
	$de =~ tr/\n//d;
	print OUT "$de<br>\n";
	}
close(OUT);