while (my $result = copy ("$source", "$destination")) {
spin($j);
}