Judging by the unformatted, unreadable and as yet unreaped version of this post,
    $boot_device = q awk 'FNR == 2 { print $1 }';
and similar are probably intended to be something like
    $boot_device = q[ awk 'FNR == 2 { print $1 }'];
(and $print should be print).