#!/usr/bin/perl system ("cd .."); system ("ls");