use File::Copy;

use strict;

 if(-d $workspace)
    {
        opendir(WorkSpace, "$workspace") ||
            die "Error: Can't open $workspace directory: $!";
        @WorkSpace = readdir(WorkSpace);
        closedir WorkSpace;

	my $backup_dir = $workspace;
	$backup_dir = join("", "$workspace", "-backup");

	if (-d $backup_dir)
	{
	    system "del $backup_dir";
        }
	else
	{
	     mkpath("$backup_dir")
        }
	
        foreach my $file (@WorkSpace)
        {  
            move("$workspace\\$file", "$backup_dir\\$file");
        }
    }