my ($function, $sourcedir, $targetdir) = @ARGV; die ": missing operand. Usage: $0