Select Code to Download

  # read foo.sql into memory
  open my $fh, "<", "foo.sql" or die $!;
...

  # run each command
  $dbh->do($_) for @commands;

  system("mysql -hhost -uname -ppass db < foo.sql") == 0
    or die "Failed: $?";