open PATH, "> /home/me/RT/$counter.txt" or die $!;
    print "\n\tFetching\n$_\n";
    print PATH "$article";
    close PATH;

##</code><code>##

    open my $path, '>', "/home/me/RT/$counter.txt" or die $!;
    print "\n\tFetching\n$_\n";
    print $path $article;