channellogos/debian/check.pl

#!/usr/bin/perl
use strict;
use File::Basename;

foreach my $logo (glob("./logos/*")) {
  if ( "$logo" =~ /.png$/ )
  {
    print "$logo"."\n";
    my $name = $logo;
    $name =~ s/.png/.svg/g;
    if ( -f $name )
    {
      print "found: $name"."\n";
    }
  }
}