Select Code to Download

1 sub RegCallback {
2    $CB = shift;
3    $HS = $CB->GetInterface();
4    return;
5    }

$VAR1 = \bless( {
                   'plugin' => undef,
...
                   'SunRise' => '7:02 AM',
                   'SunSet' => '4:13 PM'
                 }, 'Win32::OLE' );