#!/usr/bin/perl -w 

use Shell;

cp ("/path/file1","/path/file2");