#! /usr/bin/perl

while (<STDIN>) {
        @ent = split();
        if ($ent[0] =~/mkdir/) {
            $cmd = "$ent[0] $ent[1] $ent[2] $ent[3] $ent[4]\n";
        }
        elsif ($ent[0] =~ /chown/) {
            $cmd = "$ent[0] $ent[1] $ent[2]\n";
        }
        else {
            $cmd = $_;
        }
        chomp($cmd);
	system($cmd);
}

