getvalue1{
    print "$email : $token";
}

##</code><code>##

sub getvalue1{
    print "$email : $token";
}

##</code><code>##

    print "$email : $token\n";

##</code><code>##

sub getvalue1{
    my ($e, $t) = @_;
    print "$e : $t\n";
}

##</code><code>##

getvalue1($email, $token);