оч.негативное впечатление .. совершенно не читаемый код .. -- нехватает мозга не читай а мне так писать нравится )

поскольку написано под винду.. -- че сложно путь заменить куда будешь дампить??

1-ю строку стоит заменить на путь к интерпритатору -- нахрена?? под активом они автоматом ассоциируются с ним при его установке

$ua->head(@_[0])->status_line eq '200 OK' и
$ua->head(@_[0])->as_string=~/200 OK/ - на два символа меньше - нафиг eq???

PS поправил на 401 и там и там