#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

system ("start \"New prompt!\" cmd.exe |dir");