@ARGV = glob('*.txt');
	if (@ARGV){
		my @MOVE = @ARGV;
		
		while (<>) {
			print $FH $_;
			$COUNT++;	
		}		
			foreach $FILE (@MOVE) {  
				move($FILE, $OUTDIR) or die "Could not move $FILE to $OUTDIR: $!\n";	
			}
	}