--------------------------------------------
SERVER CODE
--------------------------------------------
use strict;
        use Net::FileShare;
        my ($fh) = Net::FileShare->new(
                        _send_only => 1,
                        _directory => 'C:\Documents and Settings\deadpickle\Desktop\UAV',
                        _debug     => 1);
        $fh->server_connection;

---------------------------------------------
CLIENT CODE
---------------------------------------------
use strict;
        use Net::FileShare;
        my ($fh) = Net::FileShare->new(
                        _directory => 'C:\Documents and Settings\deadpickle\Desktop');
while ( -e 'C:\Documents and Settings\deadpickle\Desktop\UAVuavposition.txt') {
      $fh->client_automated("localhost","3000","get","uavposition.txt");
sleep 5;
};