#!/usr/bin/perl #Name of Manifest file $MANIFEST="/home/easwaran/MANIFEST-SMB"; #name of tar file $tarfile="/tmp/anchobackup.tar"; open(FILE, $MANIFEST) || die("Can't see $MANIFEST files"); while($line=<FILE>) { if( ($line !~ /^\#/) && ($line ne "\n")){ chop($line); push(@array,$line); } } system ("smbclient \\\\\\\\ancho\\\\c-ancho ****** -TcI $tarfile //@array"); system ("gzip "f $tarfile");