#!/usr/bin/env perl
use warnings;
use strict; 

my $dummy_scalar_1;
$dummy_scalar_1=`pdw`;
chomp $dummy_scalar_1;