sub findurl { 
	my $url;
	open (INFO, $datafile) or die "Can't open $datafile: $!";
	while (<INFO>) {		
		my ($title, $location) = split(/\|/ , $_);
		if ($title eq $name) {
			$url = $location;
		}
	}
	close (INFO); 
	return $url;   
}

##</code><code>##

my $url = findurl();
if (defined $url) {
	doit();
} else {
	incomplete();
}