#!/usr/bin/perl -w
use strict ;
my @test = system("dir") ;
print @test ;