my $tracks;
my $ritetime;
my $philetracks;

opendir(MUSICPUB, "/opt/www/musicpub/");
while (defined($tracks=readdir(MUSICPUB)){
      if ($tracks=~m/tracks/){
          $philetracks="/opt/www/musicpub/$tracks";
      }
}
closedir(MUSICPUB);
$ritetime=(stat($philetracks))[9];

open(TRACKS, "+<< /opt/www/musicpub/tracks");
print TRACKS "$ritetime\n";
close TRACKS



##</code><code>##

311-Evolution:
1093970368
311-Freak Out:
1093970368
311-FullRide:
1093970368
311-Champagne:
1093970739
311-Hive:
1093970368