use strict;
use warnings;

use lib 'C:/Perl';
use SecurityV1;

printf "Hello World\n";

##</code><code>##

package SecurityV1;

BEGIN {
	my $LoadModule = ($^O ne 'MSWin32') ? 'UnixSecurity' : 'Win32Security';
	eval "require $LoadModule; 1;" or die $@ if $LoadModule;
	$LoadModule->import();

}

use strict;
use warnings;
use constant { TRUE => 1, FALSE => 0 };


use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK );

our $VERSION 	= 1.00;
our @ISA	= qw(Exporter);

@EXPORT		= qw();

@EXPORT_OK   	= qw();
						
Test();

1;

##</code><code>##

package SecurityWin32;

use strict;
use warnings;
use constant { TRUE => 1, FALSE => 0 };

use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK );

our $VERSION		= 1.00;
our @ISA		= qw(Exporter);

@EXPORT			= qw(Test);

@EXPORT_OK		= qw();

								
sub Test { 
	printf "Loading %s\n", __PACKAGE__; 
}
								
1;

##</code><code>##

package SecurityUnix;

use strict;
use warnings;
use constant { TRUE => 1, FALSE => 0 };

printf "Loading %s\n", __PACKAGE__;


use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK );

our $VERSION  = 1.00;
our @ISA      = qw(Exporter);

@EXPORT       = qw(Test);


@EXPORT_OK    = qw();

sub Test { 
	printf "Loading %s\n", __PACKAGE__; 
}

1;