The ~username convention is a shell shortcut (much like ~- and ~/) so isn't interpreted by perl. So you'll just have to hardcode the path I'm afraid, although I'm sure a tilde expansion module would be most welcome on CPAN :)
HTH

_________
broquaint