#!/usr/local/bin/perl

$dir="./";
print `cd .. ;ls`;