#!/usr/bin/perl

use strict;
use warnings;

my $test = "calc.exe";
system($test);
print $test;