perl trial insted of shell