Michael Khalman khalman-m

## restore_mac_trash.pl
#!/usr/bin/env perl

# Copyright (c) 2015 Sergey Lyubka
# All rights reserved

use Encode;

my $dir = "/Users/$ENV{USER}/.Trash";

sub read_file($) { local $/; open FD, $_[0] or die $_[0]; binmode FD; <FD>; }
	#!/usr/bin/env perl

	# Copyright (c) 2015 Sergey Lyubka
	# All rights reserved

	use Encode;

	my $dir = "/Users/$ENV{USER}/.Trash";

	sub read_file($) { local $/; open FD, $_[0] or die $_[0]; binmode FD; <FD>; }