#!/usr/bin/perl -w 
use strict;
use Set::IntSpan;


my ($run_list, $set, $n);
$run_list = '0-100';
$n = 13;

eval { $set = new Set::IntSpan $run_list };
$@ and print "$@: bad run list\n";
 
member $set $n and print "$n is a member of my set\n";