#!/usr/bin/perl

$file="lyrics.count";
$path="/home/bagel/www/data/animelyrics/$file";

open($file,"$path") ||
    die("unable to open $path");
$count=<$file>;
close($file);
$count++;
open($file,">$path");
print $file ("$count\n");
print ("$count\n");
close($file);