use File::Copy;
copy("E:/Main/Take/5/Image.JPG","E:/BmpTxtZip/picture.JPG") or die "copy failed: $!";
copy("E:/Main/Take/5/Cabinet.cab","E:/BmpTxtZip/small.cab") or die "copy failed: $!"; #always file to copy cab files

after running i get
copy failed: at E:\AUTOMATION\CopyFiles.pl line 3.

using this syntax i can able to copy bmp,JPG,txt files but unable to copy cab files.i don't know why?

What version of Perl are you using?
I am able to run this successfully with version 5.8.2 and the files did get copied. Not sure this is a version problem though. Just guessing.

Hi raina,

Thanks for your reply.Perl version i am using is 5.8.6.Actually problem releated to me was that file E:/BmpTxtZip/small.cab was always ReadOnly.Even i manully changed it's attributes to read and write,it wont get change.so that only i am getting this error.After i found this problem not releated to perl.Sorry Raina.I also read your post[Usage of Perl's XML::Paser Module] if possible i will send a good reference.

Thanks