#!/usr/bin/perl

# strict und warnings nicht vergessen
use strict;
use warnings;

# rechnen
my $x = 9 * 4;

# Datei öffnen
open DATEI,'>','./Erbgebnis.txt' or die $!;      

# in die Datei schreiben
print DATEI $x;

# Datei schließen
close DATEI;