Select Code to Download

#! perl
use strict;
...
    close  $fh or die "Cannot close file '$out': $!";
    select $ofh;                        # Restore old filehandle (STDI
+N)
}

my $str = get($url) or die "Couldn't get it!" unless defined $str;