Help for this page
BEGIN { parse_options("NonStop=1"); }
#!/usr/bin/perl -dw use lib './lib'; ... $p = MY::Patient->retrieve(1); $u = MY::User->retrieve(1); }