#!/usr/bin/perl 
use strict;
use warnings;

my $excludes = "/home/user1/scripts/perl/backup/excluded_files.txt";
                                 
my $storageLocation = "/mnt/mount_point/dir1/"; 
my $archiveName = "backup.tar.gz";
my $archiveDir = "/home/user1/temp"; 

my @args = ("/bin/tar", "czv --exclude-from=$excludes -f",   $storageLocation.$archiveName,  $archiveDir );
system(@args) == 0 or die "system @args failed: $?";