Подобен код на perl ?

[ddevil]

<?php
...
...
....

$opts = array(
'http'=> array(
'method'=> "GET",
'user_agent'=> $sagent
)
);
$context = stream_context_create($opts);
$file = file_get_contents($url, false, $context);
$link1 = explode("<title>", $file);
$link1 = explode("</title>", $link1[1]);
...
...
...
?>

Как се прави това с perl ?

 

[zxvf]

Обясни точно какво искаш да направиш Нещо не ми става ясна идеята от поста ти.