Help for this page
#!/usr/bin/perl -wT ... open LOG, ">>messages.txt" or die "Can't open file: $!"; print LOG $string, "\n";; close LOG;
#!/usr/bin/perl -wT ... } close LOG;