sub get
{
...
 croak("Bad remote filename '$remote'\n")
	if $remote =~ /[\s\r\n]/s;