#!/usr/bin/perl -w
use strict;

my $result1 = `dir`;
print $result1;

my $result2 = `dir *.txt`;
print $result2;