Select Code to Download

#!/usr/local/bin/perl -w

...
$foo = create_context( $user, $passwd );

print "status = $foo\n";

int main() {
    int stat;
...

    return 0;
}