#!/usr/bin/perl --
CHECK {
    print "\n\nsystem qw[ perlapp\n";
    for my $k ( sort keys %INC ){
        if( $k =~ s/\.pm$// ){
            $k =~ s{/}{::}g;
            print "    --add $k\n";
        }
    }
    print "\n];\n\n ";
    exit 0;
}

use Net::Netrc ; use Encode::Locale; 
__END__
system qw[ perlapp
    --add Carp
    --add Config
    --add DynaLoader
    --add Encode
    --add Encode::Alias
    --add Encode::Byte
    --add Encode::Config
    --add Encode::Encoding
    --add Encode::Locale
    --add Exporter
    --add Exporter::Heavy
    --add Fcntl
    --add File::Basename
    --add File::Spec
    --add File::Spec::Unix
    --add File::Spec::Win32
    --add FileHandle
    --add IO
    --add IO::File
    --add IO::Handle
    --add IO::Seekable
    --add Net::Netrc
    --add SelectSaver
    --add Symbol
    --add Win32::API
    --add Win32::API::Struct
    --add Win32::API::Type
    --add Win32::Console
    --add XSLoader
    --add base
    --add bytes
    --add constant
    --add strict
    --add vars
    --add warnings
    --add warnings::register

];