print `whereis perl` . "\n";