http://qs1969.pair.com?node_id=363747

#!/usr/bin/perl -w
use strict;