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

I've tried this on a while() loop using $sth->fetch_array(), pre-declaring the array and trying to join it. I knew it was empty and I knew it wouldn't work, but then I've never mastered the art of thinking things through. I've also tried applying the join() inside of the loop, or applying to the LHS and RHS of my $sn .= $result[0] / $result->[0], neither of which worked either.

Anyway, the program in its incomplete entirety:

#!/us/bin/perl                                                        
+                                                                     
+                                                                     
+                                                                  

use strict;
use warnings;

use DBI;
use LWP::UserAgent;

sub get_serialno {
  my $dbh = DBI->connect("DBI:mysql:database=stuff;host=localhost", "w
+oo", "hoo", {'RaiseError' => 1}) || die "Error: " . DBI->errstr;
  my $sth = $dbh->prepare("SELECT serialno FROM appliances");
  $sth->execute();
  my $sn;
  my $ref = $sth->fetchall_arrayref();
  foreach my $result (@$ref) {
    $sn .= $result->[0];
  }
  return $sn;
  $sth->finish();
  $dbh->disconnect();
}

my $asyncos = shift || die "Usage: imagefetch.pl <version number>-<bui
+ld>\n";
my ($version, $build) = split /-/, $asyncos;
(my $mversion = $version) =~ s/\./-/g;

my $urlpart = "http://downloads.ironport.com/asyncos/upgrade/asyncos-$
+mversion.ipup?requested_version=phoebe-$mversion-$build&serial=";
my $snpart = get_serialno;
my $url = $urlpart . $snpart;

print $url;

print "\n\n";
[download]

The LWP stuff itself will be simple. Running out of talent (or tutorials!) at a small hurdle like this is um, annoying :). A clue, a smack upside the head or a RTFM (please include a hyperlink) all welcome.

Many thanks in advance.