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

my $output;
$output .= $_ for ($_, qx/ls -l $_/, qx/lsac */); # Get output for file

# Print output to file
s!/!.!g; # Generate suitable filename
open FH, ">/home/mis/tstanley/Migrate/$_" or die $!;
print FH $output;