Select Code to Download

sub findurl { 
    my $url;
    open (INFO, $datafile) or die "Can't open $datafile: $!";
...
    close (INFO); 
    return $url;   
}

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