hmm, hier ist ein auszug aus dem file
da ich vorher ja überprüfe ob der prozess läuft kann nur ein anderer prozess den grap hat :/ kann man das auch überpüfen??

sub import
+7 {
+8 my $class = shift;
+9 no strict 'refs';
+10 my $package = caller(0);
+11 while (@_)
+12 {
+13 my $fn = shift;
+14 my $sm = shift;
+15 foreach my $sub (@{$sm})
+16 {
+17 my ($suffix) = $sub =~ /(\w+)$/;
+18 my $pfn = $package.'::'.$fn;
+19 *{$pfn."\u$suffix"} = sub { shift->$pfn($sub,@_) };
+20 }
+21 }
+22 }

die user werden mit dem netten fenster belohnt da sie über 600 modelle nicht archivieren die schon älter wie ein halbes jahr sind naja und bevor wir weitere festplatten kaufen, erfreuen wir unsere user mit so nem tollen fenster :) ist doch llieb oder?