#!/usr/bin/perl -w
my $pkg;
BEGIN {
    if    ( $^O =~ /dar/ ) { $pkg = 'mac' }
    elsif ( $^O =~ /sol/ ) { $pkg = 'sun' }
    elsif ( $^O =~ /aix/ ) { $pkg = 'aix' }
    else                   { die "unknown os." }
};

print "answer is " . $pkg->get_answer() . "\n";
exit 0;

package mac;
sub get_answer { return "Apple" }

package sun;
sub get_answer { return "Sun" }

package aix;
sub get_answer { return "IBM" }

__END__