1 #! /usr/bin/perl

     2 use 5.010;

     3 use strict;

     4 use warnings;

     5 

     6 die "$0 src dst\n" if not @ARGV == 3;

     7 

     8 my ($src, $dst, @layers) = @ARGV;

     9 

    10 system "dia --export=$dst --show-layers=layer-@layers $src";