#!/usr/bin/perl

# save as out.pl

use strict;
use warnings;

my $output = "out.pl";
system('dir $output');
print "\n\n--------------\n\n";
system("dir $output");