#!/usr/bin/perl

use strict;
use warnings;

my %options;
call_view() unless exists $options{'r'};

sub call_view {
    print "doesn't exist.\n";
}