use Your::Module;

open my $arc, 'ftp ftp://some.dot.com/pub/3GB.archive |'
    or die;
local $/ = \65536; ## Could your module handle this?

my $arcObj = Your::Module->new( $arc );

while( my( $name, $dataRef ) = $arcObj->next ) {
    if( $name =~ m[^file(\d+.type)$]
    and $$dataRef =~ m[this|that] 
    ){
        open $out, '>', localtime . $1 or die $!;
        print $out $$dataRef;
        last
    }
}

##</code><code>##

use Win32API::File qw[ :all ];
use Your::Module;

my $hObject = CreateFile( 
    '//?/UNC/Server/Share/Dir/File.Ext',
    FILE_READ_EA,
    FILE_SHARE_READ,
    pack( "L P i", 12, $pSecDesc, $bInheritHandle ),
    TRUNCATE_EXISTING,
    FILE_FLAG_SEQUENTIAL_SCAN|FILE_FLAG_WRITE_THROUGH,
    SECURITY_IDENTIFICATION|SECURITY_IMPERSONATION,
    0
) or die $^E;

OsFHandleOpen( FILE, $hObject, $sMode ) or die $^E;

my $arcObj = Your::Module->new( \*FILE );

opendir DIR, '//SERVER/DIR/';
while( my $file = readdir DIR ) {
    open my $fh, '<', $file or die $!;
    $arcObj->addFile( 
        "/DIR/$file", do{ local $/; <$fh> } 
    );
}
close DIR;