I haven't use Tk in many years, so I'm no help there, but you will probably need to start by replacing "cp -r" with a combination of File::Find and File::Copy. The modules should give you the control you need to stop periodically and report your progress to the GUI.

There's cpan module too: File::Copy::Recursive.