my $cgi = CGI->new;
my $this_url = $cgi->self_url;

my $cookie = $cgi->cookie(
  -name    => 'lasturl',
  -value   => $this_url,
  -expires => '+1M'
);

print $cgi->header(-cookie => $cookie);