windows-xp/Source/XPSP1/NT/tools/x86/managed/urtinstall/gacinstall.pl

if (open(FILE, $ARGV[0])) {
    while (<FILE>) {
        chomp;
        next if (/^$/);
        system("$ENV{'URTSDKTARGET'}\\bin\\gacutil -i $ENV{'URTTARGET'}\\$_ >> $ENV{'URTINSTALL_LOGFILE'}");
    }
} else {
    warn "Couldn't open file $ARGV[0]: $!\n";
}