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

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

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

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