#!/usr/bin/perl -w
use strict;
# running Active state 5.10

use IPC::Run3;

run3 ("dir C:/");