Simple Thread question

Hi Thread Guru's,
    I'm just reading up on Perl threads for the first time from
http://perldoc.perl.org/perlthrtut.html
<http://perldoc.perl.org/perlthrtut.html> .  

After reading the document and trying out a test script myself. Can
someone tell me what I'm doing something wrong? It's a simple copy
function that copies a big file ~50MB, but I was hoping that the copying
happens in parallel but its not. Any ideas what I need to do? I'll like
to try the boss-worker and pipeline method. any information would great.
thanks for your help.

Here is my code?

use threads;

use File::NCopy <file::NCopy>  qw (copy);

my $FILE='c:\tmp\ADK61292p-Explorer8010hd-ATSC-SA-pKey.zip';

my $DIR1='C:\tmp\test1';

my $DIR2='C:\tmp\test2';

my $THREAD_1 = threads->create(\&COPYTOTESTAREA, ${FILE}, ${DIR1});
print "Thread 1" . $THREAD_1->join() ." is done\n";

 

my $THREAD_2 = threads->create(\&COPYTOTESTAREA, ${FILE}, ${DIR2});
print "Thread 2" . $THREAD_2->join() ." is done\n";

 

sub COPYTOTESTAREA

{

my ($SOURCE, $DESTINATION) = @_;

copy("${SOURCE}", "${DESTINATION}");

return "I'm done";

} 





     - - - - - Appended by Scientific Atlanta, a Cisco company - - - - -         
This e-mail and any attachments may contain information which is confidential, 
proprietary, privileged or otherwise protected by law. The information is solely 
intended for the named addressee (or a person responsible for delivering it to 
the addressee). If you are not the intended recipient of this message, you are 
not authorized to read, print, retain, copy or disseminate this message or any 
part of it. If you have received this e-mail in error, please notify the sender 
immediately by return e-mail and delete it from your computer.