Select Code to Download

Global symbol "$file" requires explicit package name at ./backup.pl li
+ne 9.

  # before your loop
  $sth_achroms = $dbh -> prepare( "
...
        $sth_achroms -> execute( $achrom[0],$achrom[1],$achrom[2],
                     $achrom[3], $achrom[4], $achrom[5], $achrom[6],
                     $achrom[7], $achrom[8]);