#!/usr/bin/perl

$lrdir = "D:\\Fido\\mail\\NetMail.Stas";
$desktop = "C:\\Users\\Stas\\Desktop";


	open(LRF, "$lrdir\\lastread");
	read(LRF,$lr,2);
	close(LRF);

	$lastread=unpack('S2', $lr);

	opendir(DH, $lrdir);
	while( readdir( DH ) ) {
		next unless $_ =~ /^(\d+)\.msg$/i;
		if ($1 > $lastread) {
			$unread++;
		}
	}
	closedir(DH);

	opendir(DH, $desktop);
	while( readdir( DH ) ) {
		next unless $_ =~ /^GoldEd\[?\d*\]?\.lnk$/i;
		$oldname = $_;
	}
	closedir(DH);

	if (defined( $unread )){
		$newname="GoldEd\[$unread\]\.lnk";
	} else {
		$newname="GoldEd\.lnk";
	}

	if ( $oldname ne $newname ) {
		rename( "$desktop\\$oldname","$desktop\\$newname" );
	}