Virtual model Perl