#!/usr/bin/perl

use strict;
use LWP::Simple;

$ARGV[0] =~ /(\d+)/;
my $num = $1;

die ("Didn't get a number") if !$num;

my $content = get("http://www.nessus.org/plugins/index.php?view=single&id=$num");

if ($content =~ /2\><h1\>(.+?)\</){
	print "$1\n" 
}else{
	print "Not found\n"
}