why would you want to call 'awk' one liner in perl? Have you tried solving the problem in perl at all?
However, if you insist, you can check perl function system and it's several cousins...
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me