#!/usr/bin/perl use LWP::Simple; if ($#ARGV != 0) { exit; } my ($url, $content, $title); $url = $ARGV[0]; $content = get($url); if (!defined $content) { exit; } if ($content =~ m/