Select Code to Download

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

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

    print "$email : $token\n";

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

getvalue1($email, $token);