#!/usr/bin/perl -l

use strict;
use warnings;
use Devel::Eval qw( dval );

my $x = '';

dval <<'EOF';
if ($x= 5) {
    get_accounts();
}

sub get_accounts {
    print $x;
}
EOF