#!/usr/local/bin/perl -w
#
# this is an attempt to make a cleaner read of the Ford-WSL cookie

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Base64;
use CGI::Cookie;

my $query = new CGI;
my %cookies = fetch CGI::Cookie;
my $cookie = $cookies{'Cookie-Name'}->value;

print $query->header;
print $query->start_html;
print "<h1>Cookie</h1><br>\n";
print "Straight cookie: $cookie\n<br><br>\n";
my $decoded = decode_base64($cookie);
#write_file($decoded);
print "and Base64 decoded:  $decoded <br><br>\n";
print $query->end_html;