#!/usr/bin/perl -w

use strict;
use warnings;
use Getopt::Long;

use File::Copy;
use File::Spec;
use File::Glob ':glob';

my ($source_path, $txt_check, $verzeichnis, $dest_path,$file); 
my %options = ();
GetOptions(\%options, 'txt=s');

my $downloaddir='/home/kami/download';
my $finaldir='/home/kami/final';

$verzeichnis=File::Spec->join($downloaddir, $options{'txt'});

# TXT Dateien suchen und kopieren

$txt_check=File::Spec->join($verzeichnis, '*.txt');
print $txt_check."\n";
if(bsd_glob($txt_check)){
  print "1\n"; 
  for $source_path (bsd_glob($txt_check)){
    print "SOURCE $source_path\n";
    if(-f $source_path){   
      (undef,undef,$file) = File::Spec->splitpath( $source_path );
           
      $dest_path=File::Spec->join($finaldir, $file);
      print "DEST $dest_path\n";
      copy($source_path,$dest_path) or die("ERROR copy($source_path,$dest_path) $!\n");
    }
  }
}