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