Select Code to Download

package MyModule;
use vars qw(@ISA @EXPORT_OK $name $street $city $zip);
BEGIN {
...

MyModule::exec_callback('Bob', '600 1st St.', 'Beverly Hills', '90210'
+)
        and print "Record is valid.\n";