#!usr/bin/perl -w
#############################
### Perl Counter von Us0R ###
#############################
open (WRITE, ">counter.txt");
while (<WRITE>)
{
$counter = $_++;
}
print WRITE $counter;
close (WRITE);
open (DATA,"counter.txt");
while (<DATA>)
{
print "$_";
}
close (DATA);