open my $FH, '>', 'test.txt' or die $!; # normaler Text
print $FH '4711';
close $FH;

open $FH, '>', 'test.txt:prog.lic' or die $!; # Lizenzdaten schreiben
print $FH 'LZK: <0xDEADBEEF>';
close $FH;

open $FH, '<', 'test.txt:prog.lic' or die $!; # Lizenzdaten lesen
print scalar <$FH>;
close $FH;