open(FILE,"@ARGV[0");
while (defined ($line = <FILE>)) {
   chomp $line;
   if $line =~ /mydir/) {
   $directory = substr($line, 8);
}

mkdir $directory, "\n";
}