in reply to system "gzip $full_name" is taking more time

Try running the gzip in the background .. change the line to : 
system "gzip $full_name&";

[download]
This will achieve the same effect as multiple copies.

             When in doubt, mumble; when in trouble, delegate; when in charge, ponder. -- James H. Boren

In Section Seekers of Perl Wisdom