>>58-60
穴だらけのスクリプトな悪寒。
もったいないかもしれないけれどその本は捨てた方がよいかも。。。

>>69
$target = $ARGV[0];
@temp; = split( /\//, $target ); # ここが鰓。「@temp = 」だす。
$target_hostname = shift(@temp);