#!/usr/bin/env perl use strict; use warnings FATAL => 'all'; use English qw(-no_match_vars); use Test::More; print `ls *`;