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