#!perl -w
use strict;
use CGI qw(header);
use File::Find;
print header(-type=>"text/plain");
find(\&wanted, $ENV{USERPROFILE});
sub wanted
{
	stat $File::Find::name;
	return if -d;
	return unless -r && -f;
	open (BOOKMARK, $File::Find::name);
	my @bookmark=<BOOKMARK>;
	close (BOOKMARK);
	my $head;
	if ($bookmark[1] =~ /^BASEURL=/){$head=8}
	else{$head=4}
	print substr($bookmark[1],$head,length($bookmark[1]));
}