smeserver-affa/root/etc/affa/scripts/SME/backupList.pl

#!/usr/bin/perl
use esmith::Backup;
my $b = new esmith::Backup or die 'Error';
my @list = $b->restore_list;

foreach my $dir (@list){
    $dir = "/$dir";
    push (@newList, $dir);
}

print (join ',', @newList);

exit;