my @foo=split('/', ); my $usuario = $foo[$#foo-1] unless $#foo<1; my $rfc; /~$usuario Pg dbname=personal2001 postgres select * from datos_per where login='$usuario' eogm @cie.unam.mx # # Reading rfc from esql # $rfc .= do ; Pg dbname=informe2002 postgres select nombre_linea from lineas where rfc='$rfc' Pg dbname=informe2003 postgres select nombre_linea from lineas where rfc='$rfc'