#!/usr/bin/perl -w
use strict;
use Win32::API;
Win32::API::Type->typedef( 'HRESULT', 'LONG' );
my $function = Win32::API::More->Import(
      'shell32.dll', '
HRESULT SHEmptyRecycleBin(
  HWND hwnd,
  LPCTSTR pszRootPath,
  DWORD dwFlags
);');
  die "Error: $^E" if ! $function; #$^E is non-Cygwin only
my  $return = SHEmptyRecycleBin(0, "", 0);
[download]