#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Mail::Message::Field;

my $disp = Mail::Message::Field->new('Content-Disposition' => 'inline',
  filename => 'my file');

$disp->print;
