#!/usr/bin/perl -w
print"Pls enter the file name\n";
my $in=<STDIN>;

open(AA,"$in");
my $input='';
while(<AA>)
{
  my $temp='';
     $temp=$_;
   $input=$input.$temp;
}
close(AA);
open(BB,">out.txt");
print BB $input;
close(BB);