#! /usr/local/bin/perl

# with-sshkeychain SOME OTHER COMMAND

use Mac::PropertyList;

my $plist =
  Mac::PropertyList::parse_plist_file(
    "$ENV{ HOME }/.MacOSX/environment.plist" )
  or die "cannot parse environment.plist\n";

$ENV{ SSH_AUTH_SOCK } = $plist->value( 'SSH_AUTH_SOCK' )
  or die "no SSH_AUTH_SOCK\n";

exec( @ARGV );