#!/usr/bin/perl --
use strict;
#use warnings;
use CGI qw(param); 

use lib '/www/qoopie.net/lib';
use Pages::Index_NET;

if(param('r')||param('rurl')){
	Pages::Index_NET->redirect();
}else{
	Pages::Index_NET->qoopie_net("/www/qoopie.net/view.ciao/");
}