perl - обрезаный

тогдаб уже правил чтобы и без авторизации проканывало
$ua->head(@_[0])->as_string=~/401/ or $ua->head(@_[0])->as_string=~/200/
я просто обычно не ставлю дык мне в голову чет не пришло это =))