On line 42, try changing

getvalue1{
    print "$email : $token";
}
[download]

To:

sub getvalue1{
    print "$email : $token";
}
[download]

EDIT: When I were replying, there were no responses lol