Changing Directory

chdir("/etc");
@s=readpipe(ls);
for($i=0;$i<@s;$i++)
{
push(@e,$s[$i]);
}
for($i=0;$i<@e;$i++)
{
print $e[$i]."\n";
}