Select Code to Download

use Win32::Clipboard;

...
    print Win32::Clipboard::GetAs($format);
    print "\n\n";
}