package SVGN;

use strict;

sub doit {
    my $name = shift;
    open(LOG, ">>log.txt") or die "error: $!";
    print LOG "$name\n";
    close(LOG);
}

1;