#!/usr/bin/perl

# lista todos los archivos del directorio actual que empiezan con 'a'

system("ls a*");