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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;
use MyModule;

my %vars = (
  'foo' => 'bar',
  'date' => '20040203',
  'name' => 'roger',
  ...
);

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