Select Code to Download

  my $ref = $sth->fetchall_arrayref();
  foreach my $result (@$ref) {
...
  return $sn;
  $sth->finish();
  $dbh->disconnect();

#!/us/bin/perl                                                        
+                                                                     
+                                                                     
+                                                                  

...
print $url;

print "\n\n";