my $redir = shift || 1;