1#!/bin/sh -x
2reset_data() {
3    cat scripts/clip* |
4        perl -Ilib -MClipboard -e 'Clipboard->copy(join "", <>)'
5}
6reset_data
7perl -Ilib scripts/clipfilter -html # TODO: | tail <--buggy
8reset_data
9perl -Ilib scripts/clipfilter -uri
10reset_data
11perl -Ilib scripts/clipfilter tac
12