Select Code to Download

curl 'https://somesite:8800/?library=Algemeen&function=Login&UserName=
+SomeUser&Password=SomePass'

<table><tr><td><b>Result</b></td><td ID="Result">True</td><tr><tr><td>
+<b>ResultMessage</b></td><td ID="ResultMessage"></td><tr><tr><td><b>S
+essionToken</b></td><td ID="SessionToken">sometoken</td><tr></table>

#! /usr/bin/perl -w

...
}else{
  print $res->status_line, "\n";
}