Select Code to Download

if ($line =~ /mydir/) {
  $directory = ...
  mkdir $directory, 0775;
}

open(FILE, '<', $ARGV[0]);