$dir = <STDIN>;
chomp $dir;