perl script for daily backup status check