perl -MFindBin -le 'print $FindBin::Bin'