use Tie::File;	#import the library for tie
tie my @x,"Tie::File","aDiskFile";
$x[0]++;
print "count is now $x[0]\n";