#!/usr/bin/perl -w
#see IlyaM, I am being a good boy!
use strict;
use LWP::Simple;
my $page = get 'http://www.sitedomain.com/login.cfm';
$page =~ /sid" VALUE="(\w+)/;
my $sid = $1;
print $sid;