Come on, you can figure it out.

package Windows;

use Carp;

sub import
{
     croak "This program needs Windows" unless ($^O eq 'Win32');
}

sub unimport
{
      croak "This program refuses to use Windows" if ($^O eq 'Win32');
}

1;
[download]