first commit

2025-06-03 23:03:08 +02:00
commit d40894b155
49 changed files with 49341 additions and 0 deletions
--- a/testparameter.pl
+++ b/testparameter.pl
@@ -0,0 +1,8 @@
+use strict;
+use Getopt::Long;
+
+my $len = 0;
+my %h = ('length' => \$len);
+GetOptions (\%h, 'length=i');
+
+print "$len\n"