#!/usr/bin/perl -w
use strict;
use warnings;
open(my$FH, '>>', '/home/Admin/Desktop/r.txt') or die "$!";
while (<STDIN>)
 {
   my@line = <STDIN>;
 print $FH @line ;
 close $FH
 }
 open (my$FHq, '<', '/home/Admin/Desktop/r.txt') or die "$!";
 open(my$FHw, '>','/home/Admin/Desktop/ram.txt') or die '$!';
 while (my $first = <$FHq>) {
    print $FHw $first;
 }
 print "Done!\n";