open F, "data.txt" or die &writelog;
close F;

sub writelog {
# Hier wird dann in die LOG Datei geschrieben
}