my $readfile= open(READ, $file);
    my $writefile = open(WRITE, ">$file");