#!/usr/bin/perl
#
#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;
#                                }