# function to create tarball and backup changed files;
sub backup {
        $files = "@backup";
        system ("tar -czvf backup.tgz $files") ;

}

# run backup function
backup();