my $sched = new Schedule::Oncall;
    # Declare here:
    my (@sched, $oncall, %info, $person, $pemail, $fname, $emailaddy);
    #open(SESAME, "sbur.sched.$wunm");
    if ( defined(open(SESAME, "sbur.sched.$wnum")) ) {
        # Don't declare them here, just use them:
        @sched = $sched->load ("file" =>  "sbur.sched.$wnum");
        $oncall = $sched->oncall (time);
        %info = $sched->info ("$oncall");
        $person = $sched->oncall (time);
        $pemail = $info{pager}->[0]; # assigned oncall pager email
        $fname = $info{fullname}->[0,1]; # assigns the full name of who's oncall
        $emailaddy = $info{email}->[0]; # assigns the email of who's oncall
        
    } else {
        print "There isn't a sched file defined!\n";
    }
    
    my %mail = (
        To      => "$fname <$emailaddy>",
        From    => 'oncall script <oncall.pl@dcx.com>',
        Subject => 'Test message yepper',
        'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
    );