#!/usr/bin/env perl

use strict   ;
use Carp     ;
use warnings ;

if (!-t STDIN && -t STDOUT && !scalar (@ARGV))
{
    push (@ARGV, '--copy');
}

exec 'piknik.bin', @ARGV;