Select Code to Download

  open(OUT,">>$sql_file");
  print OUT localtime().' ^ '.$pid.' ^ '.$_[0]."\n";
  close(OUT);

open OUT, ">>$sql_file" or die "Can not open $sql_file";

use strict;
use warnings;
...
);

my $mymodule = MyModule->new(\%vars);