gistfile1.txt

{
  my $log_fh;
sub debug {
    my ($line) = @_;
    if (not $log_fh) {
        open($log_fh, ">>", "/var/log/redmine_pm.log") or die $!;
    }
    print $log_fh $line, "\n";
}
}