#!/usr/bin/perl
# A script to generate a directory listing of current directory

$directory_listing = `ls -l .`;

print '$directory_listing\n';

#
# This script could also be written as follows:
#
# print `ls -l .`;
#