#!/usr/bin/perl use strict; use warnings; print < EOF foreach (glob "*") { print '

' . "\n"; } print < EOF