You can either just issue the appropriate system command like (assuming you're on Win32 by the backslash in your path) copy blabla.jpg c:\games from within your script, or you could use the CPAN module File::Copy which takes care of all of the OS specific separators for you.

Sorry, I won't write the script for you .. try a few things and see what works.

You are kidding right? Try this (you type it at the command prompt - Start|Run|cmd.exe):

C:\>copy /?
Copies one or more files to another location.

COPY [/V] [/N] [/Y | /-Y] [/Z] [/A | /B ] source [/A | /B]
     [+ source [/A | /B] [+ ...]] [destination [/A | /B]]

  source       Specifies the file or files to be copied.
  /A           Indicates an ASCII text file.
  /B           Indicates a binary file.
  destination  Specifies the directory and/or filename for the new fil
+e(s).
  /V           Verifies that new files are written correctly.
  /N           Uses short filename, if available, when copying a file 
+with a
               non-8dot3 name.
  /Y           Suppresses prompting to confirm you want to overwrite a
+n
               existing destination file.
  /-Y          Causes prompting to confirm you want to overwrite an
               existing destination file.
  /Z           Copies networked files in restartable mode.

The switch /Y may be preset in the COPYCMD environment variable.
This may be overridden with /-Y on the command line.  Default is
to prompt on overwrites unless COPY command is being executed from
within a batch script.

To append files, specify a single file for destination, but multiple f
+iles
for source (using wildcards or file1+file2+file3 format).

C:\>
[download]

So to do it just type (say this) at the command prompt:

copy blabla.jpg c:\games

copy .\*.jpg c:\all_jpegs
[download]

The DOT dir is the current dir and * is a wildcard that matches anything so .\*.jpg means match anything in the current directory that ends in .jpg. You can call shell from perl like this using backtics

#!/usr/bin/perl
`copy blabla.jpg c:\\games`;
[download]

NOTE you need 2 backslashes everyhwere you want a single backslash because of the special nature of the \ char in strings ie \n is a newline and \\ is a literal backslash.

You can also use the File::Copy module which has the advantage of working across operating systems although somehow I don't see that as a likely issue for you.

#!/usr/bin/perl
use File::Copy;
copy( 'file1', 'file2' );
[download]

use File::Copy;
copy('blabla.jpg', 'c:\games');
[download]

Including the code you've (unsucessfully) tried is really important if you'd like some help. Copying files is pretty basic stuff, and if you're having problems with copying, it may mean that there are other issues causing the problem.