>>19
open(FILE,"+<$ARGV[0]") || die();
while(<FILE>){
s/\n//g;
print FILE;
}
close(FILE);