#_______________________________________________________________________
'export=s, exportfile=s' => [
"export parameter [--exportfile=<filename>]\t\texports a part of this script into a standalonescript",
sub
{
  my ($com, $file) = @_;
  my $line;
  
  open (my $out, ">> $file");
  print $out "#!/usr/bin/perl\n";
  print $out "use strict;\n";
  print $out "use warnings;\n";
  print $out "use FindBin;\n";
  print $out "use Net::Ping;\n";
  print $out "use LWP::UserAgent;\n";
  print $out "use HTTP::Cookies;\n";
  print $out "use File::Basename;\n";

  open(my $in '<', __FILE__); # man muss die Datei auch öffnen
  
  if ($com eq "assimilate" || $com eq "get_country") # stringvergleiche mit "eq"
  {
    while($line = <$in> )
    {
      if ($line =~ /^\Q\#exmark-$com-start\E/ .. $line =~ /^\Q\#exmark-$com-stop\E/)
      {
        print $out $line;
      }
      if ($line =~ /^\Q\#exmark-$com-part-start\E/ .. $line =~ /^\Q\#exmark-$com-part-stop\E/)
      {
        print $out $line;
      }
    }
  }
  else {
    while($line = <$in> )
      {
        if ($line =~ /^\Q\#exmark-$com-start\E/ .. $line =~ /^\Q\#exmark-$com-stop\E/)
        {
          print $out $line;
        }
      }
    }
  close($in);
  close($out);
}],