#!/opt/local/bin/perl
use Math::Trig;
use File::Find;
use FindBin qw/$Bin/;

my $main_file= "$Bin/GUI.pl";
open ( MAINFILE,'<'.$main_file) or die "Kann GUI nicht oeffnen\n";
my $file_in = $LinkQD001;
my $file_out = $LinkOP001;

open(IN,'<'.$file_in) || die "Can not open file $file_in $!";
open(OUT,'>'.$file_out);

#####Quellcode, der funktioniert#####

close IN;
close OUT;
close MAINFILE;