$sourcedir= <STDIN>;
chomp($sourcedir);