use LWP::Simple;
# GET ARGV WILDCARDS
use Win32::Wildcard 'unfold';
unfold;
# Convert TO INTEGER
use Data::Types qw(:all);

$startpage = "http://cgi.ebay.com/ws/eBayISAPI.dll?ViewItem&rd=1&item=260622078967";

# ######### Grab page request
$content = get($startpage); #book2

## Then follow the link to see full description
if ($content =~ /See full description/) { @contentsplit = split(/\n/, $content);
       foreach (@contentsplit) { if ($_ =~ /See full description/) {$contentline=$_;$itemfollowlink= "item=" .$itemnnumber;open (MYFILE3, '>TRY2.TXT');print MYFILE3 "Try-1\n $contentline \n";
@linksplit1 = split(/" rel="nofollow">See full description/, $contentline);
print MYFILE3 "Try-2\n @linksplit1[0] \n"; 
@getauctionlink1 = split(/cgi.ebay.com/, @linksplit1[0]);
print MYFILE3 "Try-3\n @getauctionlink1[2]\n";
$seefulldescriptionlink = "http://cgi.ebay.com" . @getauctionlink1[2];
# $seefulldescriptionlink =~ s/amp;//ig;
print MYFILE3 "Try-4\n $seefulldescriptionlink\n";close MYFILE3;