Select Code to Download

sub load_session {
    my $self = shift;
...
    return $self->{data}->{uid};
    return undef;
}

use strict;
use warnings;
...
    my $url = $m->comp('/login.html', msg=>"Invalid session or cookie"
+);
    print "$url\n\n";
}