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

my @MEDIA;
for (qx<sudo /usr/openv/netbackup/bin/admincmd/bpimagelist -A -media -hoursago 24>) {
  s/\|/ /;
  my ($Image) = split;
  for (qx<sudo /usr/openv/netbackup/bin/admincmd/nbemmcmd -listmedia -mediaid $Image>){
    next unless m/Media ID|Data Expiration/i;
    push @MEDIA, $_;
  }
}

if (@MEDIA){
  open(FF, "|/usr/bin/mailx -s 'Daily' ishonbackup.nar\@capgemini.com") or die $!;
  for (@MEDIA){
    print FF $_ . "\n";
  }
  close FF;
}