#!/usr/bin/perl -w

use strict;
use LWP::Simple;


my $unixtime = `date \+%s`;
my $item = $unixtime;

my $url = "http://cgi.ebay.co.uk/aw-cgi/eBayISAPI.dll\?MfcISAPICommand=ViewItem\&item=$item";


my @content = get($url);
my $ebay = (grep { /font size="4">/ } @content)[0];

print $ebay;