#!/usr/bin/perl

use DBIx::Perform 'run';
run $ARGV[0];