use File::Path qw(make_path);
make_path(map {chomp; $_} <$GSR_fh>);