i=`perl -e 'use FindBin qw($Bin); print $Bin;'`