use 'perl' not $^X