You could create and delete DSNs on the fly; have a look at DSN's at Re: DSN's. But I prefer the the two other possibilities given here until now...

Best regards,
perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"

Edit ar0n -- Changed text link to node link